home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / jun94 / jffig07b.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  7.2 KB  |  646x427  |  4-bit (5 colors)
   ocr: la MINEFLDEaFormlEproc proc layMines() var i,j Smallint DombCount Smallint enduar DombCount == 0 while True i = int( rando) * nRows) + 1 j = int( rand() * nCols) + - 1 if mineArray(cellName(1,j)] = True then loop else mineArrayIcellName(1,j)] = True DombCount == bombCount + 1 if bombCount = minesLaid then quitLoop endif endif endwhile endProc Edit Line 136 Col1